Shareware Grab Bag/Shareware Grab Bag.iso/090/cmln0186.arc/DEVELOP3.LTG

Text File | 1986-12-20 | 640b | 15 lines

                            Listing 3

var total                      { declare variable }

: average10                    { start definition }
  0 -> total                   { initialize variable }
  1 10 do                      { loop 10 times }
    input                      { put input value on stack }
    total +                    { add to previous total }
    -> total                   { and save new total }
  loop                         { end of loop }
  total print                  { print result }
;                              { end of definition }